home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u9.d64 / min'max.func < prev    next >
Text File  |  2007-02-28  |  284b  |  16 lines
  1. 9000 //
  2. 9010 // RETURNS MAXIMUM OF TWO NUMBERS
  3. 9020 //
  4. 9030 FUNC MAX(A,B) CLOSED
  5. 9040 IF A>B THEN RETURN A
  6. 9050 RETURN B
  7. 9060 ENDFUNC MAX
  8. 9070 //
  9. 9080 // RETURNS MINIMUM OF TWO NUMBERS
  10. 9090 //
  11. 9100 FUNC MIN(A,B) CLOSED
  12. 9110 IF A>B THEN RETURN B
  13. 9120 RETURN A
  14. 9130 ENDFUNC MIN
  15. 9140 //
  16.